home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbboid / obstacle.cls < prev    next >
Text File  |  1999-09-07  |  1KB  |  48 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ObstacleClass"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Private mvarid As Integer 'local copy
  11. Private mvarX As Integer 'local copy
  12. Private mvarY As Integer 'local copy
  13. Private mvarRadius As Integer 'local copy
  14.  
  15. Public Property Let id(ByVal vData As Integer)
  16.     mvarid = vData
  17. End Property
  18.  
  19. Public Property Get id() As Integer
  20.     id = mvarid
  21. End Property
  22.  
  23. Public Property Let Y(ByVal vData As Integer)
  24.     mvarY = vData
  25. End Property
  26.  
  27. Public Property Get Y() As Integer
  28.     Y = mvarY
  29. End Property
  30.  
  31. Public Property Let X(ByVal vData As Integer)
  32.     mvarX = vData
  33. End Property
  34.  
  35. Public Property Get X() As Integer
  36.     X = mvarX
  37. End Property
  38.  
  39. Public Property Let Radius(ByVal vData As Integer)
  40.     mvarRadius = vData
  41. End Property
  42.  
  43. Public Property Get Radius() As Integer
  44.     Radius = mvarRadius
  45. End Property
  46.  
  47.  
  48.